home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / PROGS.ZIP / GCOMP.ICN < prev    next >
Text File  |  1992-09-28  |  1KB  |  42 lines
  1. ############################################################################
  2. #
  3. #    File:     gcomp.icn
  4. #
  5. #    Subject:  Program to produce complement of file specification
  6. #
  7. #    Author:   William H. Mitchell, modified by Ralph E. Griswold    
  8. #
  9. #    Date:     December 27, 1989
  10. #
  11. ###########################################################################
  12. #
  13. #     This program produces a list of the files in the current directory
  14. #  that do not appear among the arguments.  For example,
  15. #  
  16. #       gcomp *.c
  17. #  
  18. #  produces a list of files in the current directory that do
  19. #  not end in .c.  As another example, to remove all the files
  20. #  in the current directory that do not match Makefile, *.c, and *.h
  21. #  the following can be used:
  22. #  
  23. #       rm `gcomp Makefile *.c *.h`
  24. #  
  25. #  The files . and .. are not included in the output, but other
  26. #  `dot files' are.
  27. #
  28. ############################################################################
  29. #
  30. #  Requires: UNIX
  31. #
  32. ############################################################################
  33.  
  34. procedure main(args)
  35.    local files
  36.    files := set()
  37.    read(open("echo * .*","rp")) ? while insert(files,tab(upto(' ') | 0)) do
  38.       move(1) | break
  39.    every delete(files,"." | ".." | !args)
  40.    every write(!sort(files))
  41. end
  42.